Die Speccy' 97/Die Speccy' 97.iso/amiga_system/the_aminet/comm/cnet/warpstat.lha/WARPSTAT.REXX

OS/2 REXX Batch file | 1995-10-09 | 7KB | 2 lines

/**********************************************/
;options results;signal on SYNTAX;signal on ERROR;signal on IOERR;tr=transmit;se=sendstring;gu=getuser;chk=0;if ~show('L','rexxsupport.library') then;call addlib('rexxsupport.library',0,-30,0);$VER=lOGON STATiSTiCS 1.4 bY ThE fREaK;PRGGG="warpstat.rexx";i=1;PATHHH="s:";call startitallup;call maining;START:;tr1="transmit >13}";se=sendstring;gc=getchar;gu=getuser;gu 1;han=result;gu 3;rna=result;gu 13;tm=result;gu 14;nm=result;gu 15;acc=result;gu 16;accn=result;gu 23;po=result;gu 24;cps=result;gu 25;fr=result;gu 26;br=result;gu 30;ub=result;gu 31;uf=result;gu 32;db=result;gu 33;df=result;gu 36;messb=result;gu 37;privb=result;gu 2400876;mess=result;gu 2400880;resp=result;gu 2400868;priv=result;gu 39;uucp=result;gu 40;ac=result;gu 41;id=result;gu 47;call=result;gu 96;tupf=result;gu 97;tupb=result;gu 98;tdwf=result;gu 99;tdwb=result;gu 1401148;tes=result;CALL SCREEN;gu 59;org=result;gu 2307050;date=result;tr 'f0!1cf>50}' date;tr '!1>13}' rna;tr1 ac;tr1 id;tr1 call;tr1 uucp;tr '!1}>16}' tupb;tr '>16}' tdwb;tr '>16}' mess;tr '>16}' priv;tr '>11}' tm;tr '>20}L69 0}M69 24 #6.7 / +}M69 24 +}v69}L69 0}';tr 'f0!3>52}'han;tr '>52}'org;if fr=0 then fr="DiSABLED";tr '>52}'fr;if br=0 then br="DiSABLED";tr '>52}'br;tr '>52}'acc' cb(cf'accn'cb)cf';tr '!1>48}'ub;tr '>48}'db;tr '>48}'messb;tr '>48}'privb;tr '>48}'nm;tr '>48}l67 #0}M67 24 #10 * +}v67}l67 #0}';c=ub/tupb;pc=(((c*100)+0.7)%1);tr 'f0}!9>70}'pc;d=db/tdwb;pd=(((d*100)+0.7)%1);tr '>70}'pd;e=messb/mess;pe=(((e*100)+0.7)%1);tr '>70}'pe;f=privb/priv;pf=(((f*100)+0.7)%1);tr '>70}'pf;tr '!10}';exit;SCREEN:;tr 'H╒═════════════════════════════════════════════════════════════════════════════╕';tr '│                  wARP gROUP USER STATiSTiCS ON :                            │';tr '╞═══════════════════════════════════╤═════════════════════════════════════════╡';tr '│ Name      :                       │Handle       :                           │';tr '│ Account nr:                       │Organization :                           │';tr '│ Serial nr :                       │File Ratio   :                           │';tr '│ Caller nr :                       │Byte Ratio   :                           │';tr '│ e-Mail    :                       │Access Level :                           │';tr '╞═══════════════════════════════════│═════════════════════════════════════════╡';tr '│ BBS Uploads            KiloBytes  │You Upped          KiloBytes    (   %)   │';tr '│ BBS Downloads          KiloBytes  │You downed         KiloBytes    (   %)   │';tr '│ Total messages                    │You wrote          messages     (   %)   │';tr '│ Total e-mails                     │You wrote          e-mails      (   %)   │';tr '│ There are     messages for you.   │Including          new messages          │';tr '│ Expected speed is      bytes/sec  │You have a         baud connection       │';tr '╞═══════════════════════════════════╧═════════════════════════════════════════╡';tr '│       Wanna join the WARP group? Then contact one of the below listed       │';tr '│  Holland:  wARP WHQ    -[FLASHline]-      [phone]:281/417.11      │';tr '│   Sweden:  wARP  23 -[Digital Hangover]-  [phone]   2:201/367.0       │';tr '│  Denmark:  wARP  12   -[Pioneers BBS]-    [phone]   2:236/103.0       │';tr '│Australia:  wARP  20  -[Verbal Verbatim]-  [phone]:640/375.0       │';tr '│          Or your closest WARP site. Warp BBS A new age in BBSing            │';tr '╞═════════════════════════════════════════════════════════════════════════════╡';tr '│   wARP STATiSTiCS Made by ThE fREAK of wARP MAiL hQ (c)1995 [phone]  │';tr '╘═════════════════════════════════════════════════════════════════════════════╛';return;UNREG:;tr 'H';tr '!'i'}';tr '    ┌───────────────────────────────────────────────────────────────────┐';tr '    │..... UNREGISTRED VERSION ...... TELL YOUR SYSOP TO REGISTER ......│';tr '    └───────────────────────────────────────────────────────────────────┘TTTTTTTTTTTTSSSSSSSSSSSSSTTTTTTTTTT';return;CRACKED:;tr 'H      ┌────────────────────────────────────────────────────────┐';tr '      │AN ATTEMPT HAS BEEN MADE TO CRACK THIS STATiSTiCS SHOWER│';tr '      │  A KEY FILE ONLY COSTS A POSTCARD... SUPPORT MAILWARE  │';tr '      └────────────────────────────────────────────────────────┘';tr '      ┌────────────────────────────────────────────────────────┐';tr '      │ YOU CAN FIND THE ADDRESS TO SEND A POSTCARD TO INSIDE  │';tr '      │    THE DOCUMENT. LEAVE THE HOUSE NOW AND BUY ONE!      │';tr '      └────────────────────────────────────────────────────────┘';tr 'w7';exit;EXIT;SYNTAX:;ERROR:;IOERR:;bufferflush;exit;isitrun:;if exists(prggg)~=1 then;do;CALL UNREG;chkkk=1;end;return;startitallup:;gu 2307076;rnmmm=upper(result);gu 2401140;srnnn=result;chkkk=0;kwww="";chhh=upper(prggg);if index(prggg,".")~="0" then;do;point=lastpos('.',prggg);prggg=left(prggg,point-1);end;chkkk=0;prggg=PATHHH||prggg||'00101110010010110100010101011001'b;call isitrun;if exists(prggg)~=1 then chkkk=1;return;maining:;if chkkk~=0 then return;call open('PROGGG',prggg,'R');do until eof('PROGGG');call readln('PROGGG');kwww=kwww||result;end;call close('PROGGG');kwww=reverse(c2b(kwww));kwww=b2c(kwww);kwww=translate(reverse(kwww),'39383736353433323130'x||reverse(xrange('a','z')),'00110000001100010011001000110011001101000011010100110110001101110011100000111001'b||xrange('a','z'));kaaa=index(kwww,"@");sysss=upper(left(kwww,kaaa-1));kwww=delstr(kwww,1,kaaa);kaaa=index(kwww,"@");rmmm=upper(left(kwww,kaaa-1));rnnn=reverse(substr(kwww,kaaa+1));'67657475736572'x '00110010001101000011000000110001001100010011010000110000'b;kwww=result;call eror;If rnnn ~=kwww|sysss ~=rnmmm then;do;CALL UNREG;CALL CRACKED;exit;end;call OKAYYY;return;EROR:;if exists(prggg)=1 then heyyy=1;If kwww ~=rnnn&rmmm ~=chhh|sysss ~=rnmmm&rmmm ~=chhh|chkkk=heyyy then;do;VARAAA:;CALL UNREG;CALL CRACKED;exit;end;RETURN;OKAYYY:;If chhh ~=rmmm then;do;CALL UNREG;CALL CRACKED;exit;end;return